start        equ  $1000
data         equ  $1200
             org  start
             movea.l #$1300,a7



             move.l d1,-(a7)     ;  movem.l d0-d2,-(a7)
             move.l d0,-(a7)
             move.l d2,-(a7)
             move.b alpha,d0
             move.b beta,d1
             jsr    subtract
             move.b d2,result
             move.l (a7)+,d2     ; movem.l (a7)+,d0-d2
             move.l (a7)+,d0
             move.l (a7)+,d1

             nop


             org  $1100

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; subroutine:  subtract
; Description: subtract a number from the other one in byte size
; input: d0.b  is the qoutent
;        d1.b  is subtractor
; output: d2.b  is result
; Register used: none
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
subtract       sub.b d1,d0
               move.b d0,d2
               rts
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;




               org data
alpha          ds.b 1
beta           ds.b 1
result         ds.b 1




